Namespace Auditoria
    Public Class Transaccion
#Region "Propiedades"
        Private intUsuario As Integer = -1
        Private dteFecha As Date = Now
        Private blnEliminado As Boolean = False
        Private lngFechaLong As Long = 0

        Public Property _Usuario() As Integer
            Get
                Return intUsuario
            End Get
            Set(ByVal value As Integer)
                intUsuario = value
            End Set
        End Property
        Public Property _Fecha() As Date
            Get
                Return dteFecha
            End Get
            Set(ByVal value As Date)
                dteFecha = value
            End Set
        End Property
        Public Property _FechaLong() As Long
            Get
                Return lngFechaLong
            End Get
            Set(ByVal value As Long)
                lngFechaLong = value
            End Set
        End Property
        Public Property _Eliminado() As Boolean
            Get
                Return blnEliminado
            End Get
            Set(ByVal value As Boolean)
                blnEliminado = value
            End Set
        End Property
#End Region
    End Class

End Namespace
